<%
Dim CONN
Dim S_LANG  '语言
Dim S_RZPARAM '请求参数处理
Dim S_CRUMB '面包屑
Dim S_TEMPLATE '记录所有模板结果
Dim S_LIST '列表
Dim S_SHOW '显示
Dim S_ARTICLE_SHOW '显示文章
Dim S_ARTICLE_LIST '文章列表
Dim S_PRODUCT_SHOW '显示商品
Dim S_PRODUCT_LIST '商品列表
Dim S_PHOTO_SHOW '显示图片
Dim S_PHOTO_LIST '图片列表
Dim S_RZPAGE '分页对象
Dim S_TYPE_SHOW '分类显示
Dim S_SUBTYPE '子分类
Dim S_SPECIAL_SHOW '专题显示
Dim S_SPECIAL_LIST '专题列表
Dim S_HTMLMBUFFER '生成HTML使用
Dim S_STATIC '是否静态化
Dim S_TEMPLATEDIR '模板目录
Dim S_PERPAGE '每页显示记录数，静态化HTML的时候使用
S_PERPAGE=0

If Not IsObject(S_RZPARAM) Then 
	Set S_RZPARAM=new RZParam
	S_LANG=S_RZPARAM.Langu
End If 

If Not IsObject(S_CRUMB) Then 
	set S_CRUMB=new RZCrumb 
End If 

Dim sys_lang, sys_apptitle, sys_seotitle, sys_appkeyword, sys_seokeyword, sys_appdescription,sys_seodescription, sys_logo, sys_companyname, sys_zipcode, sys_telephone, sys_fax,sys_address, sys_beian, sys_counter, sys_qq_text, sys_msn_text, sys_email_text, sys_qq_image, sys_msn_image, sys_email_image, sys_qq_imagetext, sys_msn_imagetext, sys_email_imagetext, sys_crumb, sys_childtype, sys_param_specialid,sys_index,sys_index0, sys_index1, sys_producttypes, sys_templatedir, sys_speciallist, sys_typeid, sys_path, sys_toptypeid,sys_flag,sys_recordid,sys_specialid,sys_modelname, sys_friendlink, sys_templatepath, sys_websiteurl,sys_map
sys_lang=S_LANG
sys_zipcode=app("rz_company_zipcode")
sys_telephone=app("rz_company_tel")
sys_fax=app("rz_company_fax")
sys_beian=app("rz_beian")
sys_param_specialid=S_RZPARAM.Specialid
S_STATIC=app("rz_static")
sys_websiteurl=app("rz_website_address")
sys_typeid=S_RZPARAM.Typeid
sys_path=S_RZPARAM.TypePath
sys_toptypeid=S_RZPARAM.TopTypeId
sys_flag=S_RZPARAM.Flag
sys_recordid=S_RZPARAM.ContentId
sys_specialid=S_RZPARAM.SpecialId
sys_modelname=S_RZPARAM.ModelName
Call ChangeStatic(S_STATIC,S_LANG)
sys_qq_text=MakeAccount("qq","text")
sys_msn_text=MakeAccount("msn","text")
sys_email_text=MakeAccount("email","text")
sys_qq_image=MakeAccount("qq","image")
sys_msn_image=MakeAccount("msn","image")
sys_email_image=MakeAccount("email","image")
sys_qq_imagetext=MakeAccount("qq","imagetext")
sys_msn_imagetext=MakeAccount("msn","imagetext")
sys_email_imagetext=MakeAccount("email","imagetext")
sys_counter=ReHTMLEncode(app("rz_counter"))

Function ChangeStatic(sta,lang)
	S_STATIC=sta
	S_LANG=lang
	sys_lang=lang
	If sta=0 Then 
		sys_index=GetPath("?default"&S_LANG&".html")
		sys_index0=GetPath("?default0.html")
		sys_index1=GetPath("?default1.html")
		sys_speciallist=GetPath("?"&RZ_PRE_SPECIAL_LIST&""&S_LANG&"-s0.html")
		sys_friendlink=GetPath("?"&RZ_PRE_FRIENDLINK_LIST&""&S_LANG&"-s0.html")
		sys_map=GetPath("?"&RZ_PRE_MAP&""&S_LANG&"-s0.html")
	Else
		sys_index=GetPath("index"&S_LANG&".html")
		sys_index0=GetPath("index0.html")
		sys_index1=GetPath("index1.html")
		sys_speciallist=GetPath(RZ_HTML_PATH&"/"&RZ_PRE_SPECIAL_LIST&S_LANG&"/s0.html")
		sys_friendlink=GetPath(RZ_HTML_PATH&"/"&RZ_PRE_FRIENDLINK_LIST&S_LANG&".html")
		sys_map=GetPath(RZ_HTML_PATH&"/"&RZ_PRE_MAP&S_LANG&".html")
	End If 
	sys_apptitle=text(app("rz_title_chn"),app("rz_title_eng"))
	sys_appkeyword=text(app("rz_keyword_chn"),app("rz_keyword_eng"))
	sys_appdescription=text(app("rz_description_chn"),app("rz_description_chn"))
	sys_logo=text(app("rz_logo_chn"),app("rz_logo_eng"))
	sys_companyname=text(app("rz_company_name_chn"),app("rz_company_name_eng"))
	sys_address=text(app("rz_company_addr_chn"),app("rz_company_addr_eng"))
	sys_templatedir=text("template/"&app("rz_template_chn"),"template/"&app("rz_template_eng"))
	sys_templatepath=GetPath(sys_templatedir)
	S_TEMPLATEDIR=sys_templatedir
End Function 

%>